home *** CD-ROM | disk | FTP | other *** search
/ PCMania 39 / PCMania CD39_3.iso / multi / artgall / artg.dxr / 00131_Script_old code < prev   
Text File  |  1995-10-05  |  2KB  |  105 lines
  1. -- Shared Cast ons for entire CD
  2.  
  3. --hilite on
  4. on pressOn
  5.   puppetSound 0
  6.   set whichSprite = the clickOn
  7.   puppetSPRITE whichSprite,true
  8.   global lastClickOn
  9.   set lastClickOn = whichSprite
  10.   set the locV of sprite whichSprite to (the locV of sprite whichSprite) + 4
  11.   PUPPETSOUND "clickSound"
  12.   puppetTransition 0
  13.   updateStage
  14.   repeat while the stillDown
  15.     if rollOver(whichSprite) then
  16.     else
  17.       set the locV of sprite whichSprite to (the locV of sprite whichSprite) - 4
  18.       --set the locV of sprite 4 to 500
  19.       PUPPETSOUND "clickSound"
  20.       updateStage
  21.       puppetSPRITE whichSprite,false
  22.       puppetTransition 0
  23.       updateStage  --force button rebound before playOrGo call
  24.       exit
  25.     end if
  26.   end repeat
  27.   set the locV of sprite whichSprite to (the locV of sprite whichSprite) - 4
  28.   --set the locV of sprite 4 to 500
  29.   PUPPETSOUND "clickSound"
  30.   puppetSPRITE whichSprite,false
  31.   puppetTransition 0
  32.   updateStage
  33.   updateStage  --force button rebound before playOrGo call with extra update
  34.   --score script takes over here
  35.   puppetSound 0
  36. end pressOn
  37.  
  38.  
  39.  
  40. -- time delay utility
  41. on waitFor seconds
  42.   set now = the timer
  43.   repeat while the timer < (now + (seconds * 60))
  44.     if the mousedown then exit
  45.   end repeat
  46. end waitFor
  47.  
  48.  
  49.  
  50. --
  51. on waitFordep seconds
  52.   set now = the timer
  53.   repeat while the timer < (now + (seconds * 60))
  54.     nothing
  55.   end repeat
  56. end 
  57.  
  58. --
  59. on tmwaitFor seconds
  60.   set now = the timer
  61.   repeat while the timer < (now + (seconds * 60))
  62.     if the mousedown then exit 
  63.   end repeat
  64. end
  65.  
  66. -- sound delay
  67. on tmwaitSound thisone
  68.   repeat while soundbusy(1)
  69.     updatestage
  70.     if the mousedown then exit
  71.   end repeat
  72. end
  73.  
  74. -- sound delay
  75. --on waitSound thisone
  76. --  repeat while soundbusy(1)
  77. --     updatestage
  78. --     if the mousedown then exit
  79. --   end repeat
  80.  
  81. --
  82. on waitSound thisone
  83.   updatestage
  84.   if soundbusy(1) = FALSE then go to the frame +1
  85.   else go to the frame
  86. end
  87. -- utility
  88.  
  89.  
  90.  
  91. on upperCase s
  92.   set r = EMPTY
  93.   set len = length( s )
  94.   repeat with i = 1 to len
  95.     set c = chars( s, i, i )
  96.     if charToNum( c ) >= 97 AND charToNum( c ) <= 122 then ¼
  97.       set c = numToChar( charToNum( c ) - 32 )
  98.     set r = r & c
  99.   end repeat
  100.   return r
  101. end
  102.  
  103.  
  104.  
  105.